home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / pgs3f.lha / 3.0fUpdate / Macros.LHA / SetLessonDefaults.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-01  |  1KB  |  31 lines
  1. /* $VER: SetLessonDefaults.rexx 1.0a (01.11.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. /* SAME OLD STUFF */
  6. OPTIONS RESULTS
  7. TRACE OFF
  8. ADDRESS COMMAND
  9. /* Make sure rexx support is opened */
  10. IF ~SHOW('L','rexxsupport.library') THEN
  11.    CALL ADDLIB('rexxsupport.library',0,-30)
  12.  
  13. ADDRESS 'PAGESTREAM'
  14.  
  15. loadsettings file 'pagestream3:macros/setlessondefaults.prefs'
  16.  
  17. /* Allocate requester */
  18. allocarexxrequester '"Lesson Defaults"' 424 71
  19.     reqhandle=result
  20. /* Add gadgets */
  21. addarexxgadget reqhandle EXIT 177 54 70 label "_Ok"
  22.     addhandle=result
  23. addarexxgadget reqhandle TEXT 8 10 408 border none string "'You are now ready to do lessons 1 or 5. Note that'"
  24. addarexxgadget reqhandle TEXT 8 20 408 border none string "'the features required for lessons 2, 3 and 4 are'"
  25. addarexxgadget reqhandle TEXT 8 30 408 border none string "'not all implemented in this version.'"
  26. doarexxrequester reqhandle
  27. freearexxrequester reqhandle
  28.  
  29. ADDRESS COMMAND
  30. 'delete t:blank.prefs >NIL:'
  31.